﻿Namespace Objects

    Public Class FileFilter

        Private _title As String
        Private _extensions As String

        Public Property Title() As String
            Get
                Return _title
            End Get
            Set(ByVal value As String)
                _title = value.Trim
            End Set
        End Property

        Public Property Extensions() As String
            Get
                Return _extensions
            End Get
            Set(ByVal value As String)
                _extensions = value.Trim
            End Set
        End Property

        Public Sub New()

        End Sub

        Public Sub New(ByVal title As String, ByVal extensions As String)
            Me.Title = title
            Me.Extensions = extensions
        End Sub

    End Class

End Namespace